home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Media / HyperText Stacks Folder / Montreal Hypertext Demo / background_2776.txt next >
Encoding:
Text File  |  1988-01-16  |  4.5 KB  |  227 lines
  1. -- background: 2776 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=17 top=23 right=41 bottom=502
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Title
  20.  
  21.  
  22. -- part 7 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=440 top=216 right=237 bottom=464
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 24317 / 24317
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: back
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   go to stack "Medicine"
  37. end mouseUp
  38.  
  39.  
  40.  
  41.  
  42. -- part 10 (button)
  43. -- low flags: 00
  44. -- high flags: 8000
  45. -- rect: left=454 top=37 right=87 bottom=493
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 20186 / 20186
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: sort
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   sort by first word of field "Title"
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 11 (button)
  62. -- low flags: 00
  63. -- high flags: 8000
  64. -- rect: left=454 top=96 right=146 bottom=493
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 32670 / 32670
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: scan
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   show all cards
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 12 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=439 top=244 right=262 bottom=469
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 15420 / 15420
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: prev
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   go to prev card
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 13 (button)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=473 top=244 right=262 bottom=503
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 16560 / 16560
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: next
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   go to next card
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 14 (button)
  119. -- low flags: 00
  120. -- high flags: 8000
  121. -- rect: left=454 top=157 right=207 bottom=493
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 3430 / 3430
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: new
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   doMenu New Card
  133.   click at location of field "Title"
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 17 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=475 top=216 right=238 bottom=501
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 21700 / 21700
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: home
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   go home
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 18 (field)
  158. -- low flags: 00
  159. -- high flags: 0007
  160. -- rect: left=37 top=52 right=232 bottom=413
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 0
  164. -- font id: 3
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Text
  169.  
  170.  
  171. -- part 19 (button)
  172. -- low flags: 00
  173. -- high flags: 8002
  174. -- rect: left=284 top=243 right=261 bottom=420
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: table of contents
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   go to card id 3410
  186. end mouseUp
  187.  
  188.  
  189.  
  190.  
  191. -- part 20 (button)
  192. -- low flags: 00
  193. -- high flags: 8003
  194. -- rect: left=50 top=241 right=263 bottom=148
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: hypertext
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   doMenu Copy Text
  206.   put "Montreal Hypertext, Harvey Y Chang MD, 1988 Jan 16"
  207.   push card
  208.   go to Montreal Hypertext Demo
  209.   doMenu Find...
  210.   doMenu Paste Text
  211.   put " in field " & quote & "Title" & quote after message
  212.   do message
  213.   if the result is "not found" then
  214.     answer "not found in Titles:  search text?" with "OK" or "No"
  215.     if it is "No" then
  216.       pop card
  217.       exit mouseUp
  218.     else
  219.       doMenu Find...
  220.       doMenu Paste Text
  221.       put " in field " & quote & "Text" & quote after message
  222.       do message
  223.     end if
  224.   end if
  225. end mouseUp
  226.  
  227.